Friend Class Injectors

    Private m_cc As Integer
    Private m_name As String

    Sub New(ByVal Name As String, ByVal Value As Integer)
        m_cc = Value
        m_name = Name
    End Sub
    Public Property Name() As String
        Get
            Return m_name
        End Get
        Set(ByVal value As String)
            m_name = value
        End Set
    End Property
    Public Property Value() As Integer
        Get
            Return m_cc
        End Get
        Set(ByVal value As Integer)
            m_cc = value
        End Set
    End Property
End Class
